﻿Public Class frm_pago
    'Creo obj tipo cuenta'
    Public cue As cuenta
    'Creo obj tipo tarjeta'
    Public tar As tarjeta
    Private Sub frm_pago_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'Centrado del box_central - pago
        box_central.Location = New Point((Me.Width \ 2) - (box_central.Width \ 2), (Me.Height \ 2) - (box_central.Height \ 2))
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        'Por medio del nro dni voy a buscar todos las operaciones abiertas en estado pendiente de pago
    End Sub
    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        'Validar tipo de pago si es credito->tarjeta or transferencia->cuenta'
        'Creo popUps tarjeta y cuenta'
        Dim popUptarj As frm_tarjeta = New frm_tarjeta()
        Dim popUpcuen As frm_cuenta = New frm_cuenta()
        'Cargo tarjeta para el pago de la operacion'
        If popUptarj.ShowDialog() = DialogResult.OK Then
            Me.tar = popUptarj.tar
            If String.IsNullOrEmpty(txt_tarjeta.Text) Then
                Me.txt_tarjeta.Text = popUptarj.tar.banco + " " + popUptarj.tar.tipo + " " + popUptarj.tar.nrotarjeta + " " + popUptarj.tar.codsegu + " " + popUptarj.tar.fechvenc
             End If
        End If
        'Cargo cuenta para el pago de la operacion'
        If popUpcuen.ShowDialog() = DialogResult.OK Then
            Me.cue = popUpcuen.cue
            If String.IsNullOrEmpty(txt_cuenta.Text) Then
                Me.txt_cuenta.Text = popUpcuen.cue.des_tipocuenta + " " + popUpcuen.cue.des_banco + " " + popUpcuen.cue.des_numerocuenta + " " + popUpcuen.cue.des_nombre + " " + popUpcuen.cue.des_email
              End If
        End If
    End Sub
End Class